(fill-individual-paragraphs): When skipping mail headers, skip to a blank line.

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index a905bef78d1e2451b4d5ee7f066915d364f457a7..8486e81c2e257fb65a0b4cf8f701fb5c0011790b 100644 (file)
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -292,7 +292,7 @@ MAIL-FLAG for a mail message, i. e. don't fill header lines."
       (beginning-of-line)
       (if mailp 
          (while (or (looking-at "[ \t]*[^ \t\n]*:") (looking-at "[ \t]*$"))
-           (forward-line 1)))
+           (search-forward "\n\n" nil 'move)))
       (narrow-to-region (point) max)
       ;; Loop over paragraphs.
       (while (progn (skip-chars-forward " \t\n") (not (eobp)))